home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ASME's Mechanical Engine…ing Toolkit 1997 December
/
ASME's Mechanical Engineering Toolkit 1997 December.iso
/
ai
/
prlg195b.lzh
/
SAMPLES.LZH
/
NUMBER.PRO
< prev
next >
Wrap
Text File
|
1986-07-20
|
256b
|
11 lines
go :-
repeat,
print( 'Enter a number: ' ),
get0( Num ), nl,
(
( (Num > 58), print( 'You did not enter a number'),
nl, fail)
;
(print( 'Do it over, please. ' ), nl, fail )
).